home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / RX explorer toolbar.xpl < prev    next >
Text File  |  2001-12-22  |  1KB  |  48 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Explorer\Settings"
  5. "NAME"="Explorer toolbar picture"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Toolbar Picture"
  8. "DATA 1"="Bitmaps (*.bmp)|*.bmp"
  9. "DESCRIPTION 1"="You can choose any bitmap as background for explorer's toolbar. Clear the field to restore the default background"
  10. "VERSION"="1.08"
  11. "AUTHOR"="Roxarius / updated by Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Roxarius"
  13. "CONTACTURL"="mailto:rosarius@libero.it"
  14. "COMMENT 1"="For support about this plug-in, contact me at rosarius@libero.it. If it is about X-Setup in general, please contact Xteq Systems at http://www.xteq.com/."
  15. "COMMENT 2"="... Used with permission"
  16.  
  17.  
  18. sP="HKCU\Software\Microsoft\Internet Explorer"
  19. sV="HKCU\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapShell"
  20. SUB Plugin_Initialize
  21.  if RegPathExists(sP) then
  22.     v1=RegReadValue(sV)
  23.     Call SetUIElement(1,v1)
  24.  else
  25.     Disable
  26.  end if
  27. END SUB
  28.  
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  s=GetUIElement(1) 
  34.  if len(s)=0 then 'delete...
  35.     if RegValueExists(sV) then
  36.        Call RegDeleteValue(sV)
  37.     end if
  38.  else
  39.     Call RegWriteValue(sV,s,1)
  40.  end if
  41.  
  42.  
  43.  Call IndicateSettingChange()
  44. END SUB
  45.  
  46. SUB Plugin_Terminate
  47. END SUB
  48.